home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0497 / AMOSLIST / 000024_amos-request@svcs1.digex.net_Fri Apr 4 19:27:47 1997.msg < prev    next >
Text File  |  1998-06-24  |  3KB  |  65 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id TAA07117
  3.     for <mcox@access.digex.net>; Fri, 4 Apr 1997 19:27:46 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id RAA02561
  6.     for amos-out; Fri, 4 Apr 1997 17:38:06 -0500 (EST)
  7. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id RAA02558
  9.     for <amos-list@svcs1.digex.net>; Fri, 4 Apr 1997 17:38:05 -0500 (EST)
  10. Received: from EUnet.yu (SOLAIR.EUnet.yu [194.247.192.52])
  11.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id RAA13925
  12.     for <amos-list@access.digex.net>; Fri, 4 Apr 1997 17:38:04 -0500 (EST)
  13. Received: from eunet.yu (eunet@NS-01-P18.EUnet.yu [194.247.195.18]) by EUnet.yu (8.7.5/8.6.12) with SMTP id AAA00073 for <amos-list@access.digex.net>; Sat, 5 Apr 1997 00:38:01 +0200 (MET DST)
  14. From: Nikola Smolenski <smolensk@eunet.yu>
  15. To: amos-list@access.digex.net
  16. Date: Sat, 22 Mar 1997 13:08:51 +0500
  17. Message-ID: <yam7020.2566.233232@relay.eunet.yu>
  18. In-Reply-To: <19970404.8383258.E284@club.aristocrat.com.au>
  19. X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
  20. Subject: Re: Just plain Subjects (fwd)
  21. MIME-Version: 1.0
  22. Content-Type: text/plain
  23. Status: RO
  24. X-Status: 
  25.  
  26. On 04-Apr-97, Adam Wilkinson wrote:
  27. >For Jamie, and anyone else who is interested...
  28. >I wrote a prog once that splits a string into it's words using something
  29. >like...
  30.  
  31. >For LETTER_NUMBER = 1 To Len(TEXT$)
  32. >  LETTER$=Mid$(TEXT$,LETTER_NUMBER,1)
  33. >  WORD$=WORD$+LETTER$
  34. >  If LETTER$=' ':Rem Found a space must have a whole word
  35. >    Proc DO_SOMETHING_WITH [WORD$]
  36.      WORD$=""
  37. >  End If
  38. >Next
  39.  
  40. This can`t deal with multiple spaces. I`ve made ARGV[] and ARGC procedures
  41. I`ve talked about, does anyone want them here? Or on aminet? They both could
  42. be used for such things.
  43.  
  44. >If Anyone wants source, which takes an input, extracts the words, searches
  45. >for them in a vocabulary or adds to the current vocab if the word doesn't
  46.  
  47. Pretty good text compressor could be made with this. What do you think?
  48.  
  49. >exist, and builds a list of words you can use after other words and then
  50. >spits out random samplings of the words it knows in orders it knows...
  51. ><phew>
  52. >Then let me know.
  53.  
  54. This sounds interesting:) How does it works? How good it is?
  55.  
  56. -- 
  57. _        _  _         _  _          _                                   _
  58. \--- :_ :_ :_::- --: : ::_) _: --- \/ ----------------------------------/
  59. \\_: !_)!_,! !!_,  !,!_!! \(_! ::::..::::      nEVERmIND     :::'`::::_//
  60. `\------------------------------------------------------------- /\ ----/'
  61.   Nikola Smolenski - member of Team AMIGA             smolensk@eunet.yu
  62.  
  63.  * *** NOVI SAAAAAAAAAD!!!!!!!!!!!!!!!!!!!!!!!!! *** *
  64.  
  65.